PC World Interactive 11/PC World Interactive 11.iso/share/multimed/cdmax153/CDmax.exe/0/RCDATA/TFRMMAIN/TFRMMAIN.txt

Text File | 1998-06-12 | 20KB | 704 lines

object frmMain: TfrmMain
  Left = 279
  Top = 224
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'CDmax'
  ClientHeight = 212
  ClientWidth = 409
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = mmnMain
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnlButton: TPanel
    Left = 7
    Top = 72
    Width = 158
    Height = 47
    BevelInner = bvLowered
    TabOrder = 2
    object spbPlay: TSpeedButton
      Left = 4
      Top = 8
      Width = 25
      Height = 30
      Cursor = crHandPoint
      Hint = 'Play'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333330333333
        3333333333833333333333333003333333333333338833333333333330003333
        3333333333888333333333333000033333333333338888333333333330000033
        3333333333888883333333333000000333333333338888883333333330000003
        3333333333888888333333333000003333333333338888833333333330000333
        3333333333888833333333333000333333333333338883333333333330033333
        3333333333883333333333333033333333333333338333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = spbPlayClick
    end
    object spbStop: TSpeedButton
      Left = 29
      Top = 8
      Width = 25
      Height = 30
      Cursor = crHandPoint
      Hint = 'Stop'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333000000000
        0333333888888888833333300000000003333338888888888333333000000000
        0333333888888888833333300000000003333338888888888333333000000000
        0333333888888888833333300000000003333338888888888333333000000000
        0333333888888888833333300000000003333338888888888333333000000000
        0333333888888888833333300000000003333338888888888333333000000000
        0333333888888888833333300000000003333338888888888333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = spbStopClick
    end
    object spbPause: TSpeedButton
      Left = 54
      Top = 8
      Width = 25
      Height = 30
      Cursor = crHandPoint
      Hint = 'Pause'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333000033000
        0333333888833888833333300003300003333338888338888333333000033000
        0333333888833888833333300003300003333338888338888333333000033000
        0333333888833888833333300003300003333338888338888333333000033000
        0333333888833888833333300003300003333338888338888333333000033000
        0333333888833888833333300003300003333338888338888333333000033000
        0333333888833888833333300003300003333338888338888333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = spbPauseClick
    end
    object spbEject: TSpeedButton
      Left = 79
      Top = 8
      Width = 25
      Height = 30
      Cursor = crHandPoint
      Hint = 'Eject'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333333000000000
        0333333888888888833333300000000003333338888888888333333333333333
        3333333333333333333333300000000003333338888888888333333300000000
        3333333388888888333333333000000333333333388888833333333333000033
        3333333333888833333333333330033333333333333883333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = spbEjectClick
    end
    object spbPrev: TSpeedButton
      Left = 104
      Top = 8
      Width = 25
      Height = 30
      Cursor = crHandPoint
      Hint = 'Previous Track'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333003
        3333333333333388333333333330300333333333333383883333333333003003
        3333333333388388333333333000300333333333338883883333333300003003
        3333333338888388333333300000300333333333888883883333333000003003
        3333333388888388333333330000300333333333388883883333333330003003
        3333333333888388333333333300300333333333333883883333333333303003
        3333333333338388333333333333300333333333333333883333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = spbPrevClick
    end
    object spbNext: TSpeedButton
      Left = 129
      Top = 8
      Width = 25
      Height = 30
      Cursor = crHandPoint
      Hint = 'Next Track'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333003333333
        3333333388333333333333300303333333333333883833333333333003003333
        3333333388388333333333300300033333333333883888333333333003000033
        3333333388388883333333300300000333333333883888883333333003000003
        3333333388388888333333300300003333333333883888833333333003000333
        3333333388388833333333300300333333333333883883333333333003033333
        3333333388383333333333300333333333333333883333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = spbNextClick
    end
  end
  object pnlTimeDisplay: TPanel
    Left = 7
    Top = 2
    Width = 158
    Height = 69
    BevelInner = bvLowered
    Color = clBlack
    TabOrder = 3
    object lblMode: TLabel
      Left = 3
      Top = 45
      Width = 152
      Height = 20
      Alignment = taCenter
      AutoSize = False
      Caption = 'Playing'
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Layout = tlCenter
    end
    object lblTime: TLabel
      Left = 3
      Top = 4
      Width = 152
      Height = 39
      Alignment = taCenter
      AutoSize = False
      Caption = '[00] <00:00>'
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -24
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Layout = tlCenter
    end
  end
  object pnlTrackBar: TPanel
    Left = 7
    Top = 120
    Width = 266
    Height = 65
    BevelInner = bvLowered
    TabOrder = 0
    object lblScbStart: TLabel
      Left = 7
      Top = 27
      Width = 27
      Height = 13
      Caption = '00:00'
      ParentShowHint = False
      ShowHint = True
    end
    object lblScbEnd: TLabel
      Left = 231
      Top = 27
      Width = 27
      Height = 13
      Hint = 'Current track length'
      Caption = '00:00'
      ParentShowHint = False
      ShowHint = True
    end
    object lblScbPosition: TLabel
      Left = 119
      Top = 27
      Width = 27
      Height = 13
      Caption = '00:00'
    end
    object scbMain: TScrollBar
      Left = 7
      Top = 42
      Width = 251
      Height = 16
      Cursor = crHandPoint
      Hint = 'Track progress / Skip Frwd-Bkwd'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnScroll = scbMainScroll
    end
    object cboTracks: TComboBox
      Left = 7
      Top = 5
      Width = 251
      Height = 21
      Hint = 'Current Track / Playlist'
      Style = csDropDownList
      ItemHeight = 13
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = cboTracksClick
      OnDropDown = ComboBoxDropDown
    end
  end
  object pnlVolume: TPanel
    Left = 274
    Top = 2
    Width = 129
    Height = 183
    BevelInner = bvLowered
    TabOrder = 1
    object cdvMain: TCdVolume
      Left = 8
      Top = 3
      Width = 113
      Height = 177
      SyncDown = False
      MuteDown = False
      DeviceItemIndex = -1
    end
  end
  object pnlStatus: TPanel
    Left = 0
    Top = 193
    Width = 409
    Height = 19
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 4
    object sttArtist: TStaticText
      Left = 0
      Top = 2
      Width = 4
      Height = 4
      Hint = 'Artist'
      BorderStyle = sbsSunken
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = True
      TabOrder = 0
    end
    object sttTitle: TStaticText
      Left = 32
      Top = 2
      Width = 4
      Height = 4
      Hint = 'Title'
      BorderStyle = sbsSunken
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = True
      TabOrder = 1
    end
    object sttTrackCnt: TStaticText
      Left = 348
      Top = 2
      Width = 4
      Height = 4
      Hint = 'Playlist track count'
      BorderStyle = sbsSunken
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = True
      TabOrder = 2
    end
    object sttTime: TStaticText
      Left = 372
      Top = 2
      Width = 4
      Height = 4
      Hint = 'Playlist time'
      BorderStyle = sbsSunken
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = True
      TabOrder = 3
    end
  end
  object pnlTools: TPanel
    Left = 166
    Top = 2
    Width = 107
    Height = 117
    BevelInner = bvLowered
    TabOrder = 5
    object spbOptions: TSpeedButton
      Left = 3
      Top = 90
      Width = 54
      Height = 21
      Cursor = crHandPoint
      Hint = 'edit options'
      Caption = '&Options'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = mmiOptionClick
    end
    object spbRetrieve: TSpeedButton
      Left = 3
      Top = 69
      Width = 54
      Height = 20
      Cursor = crHandPoint
      Hint = 'retrieve from CDDB'
      Caption = 'Retrieve'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = mmiRetrieveClick
    end
    object spbSubmit: TSpeedButton
      Left = 59
      Top = 69
      Width = 45
      Height = 20
      Cursor = crHandPoint
      Hint = 'submit to CDDB'
      Caption = 'Submit'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = mmiSubmitClick
    end
    object spbContents: TSpeedButton
      Left = 3
      Top = 48
      Width = 101
      Height = 20
      Cursor = crHandPoint
      Hint = 'edit contents'
      Caption = '&Contents'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = spbContentsClick
    end
    object spbTimeFormat: TSpeedButton
      Left = 3
      Top = 6
      Width = 101
      Height = 20
      Cursor = crHandPoint
      Hint = 'change time display'
      Caption = '&Track Remaining'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = spbTimeFormatClick
    end
    object spbRepeat: TSpeedButton
      Left = 3
      Top = 27
      Width = 101
      Height = 20
      Cursor = crHandPoint
      Hint = 'change repeat option'
      Caption = '&Repeat : Playlist'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = spbRepeatClick
    end
    object cboDefaultDrive: TComboBox
      Left = 59
      Top = 91
      Width = 45
      Height = 21
      Hint = 'CD drives'
      Style = csDropDownList
      ItemHeight = 13
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = cboDefaultDriveClick
    end
  end
  object mmnMain: TMainMenu
    Left = 51
    Top = 168
    object mmiFile: TMenuItem
      Caption = '&File'
      object mmiRetrieve: TMenuItem
        Caption = '&Retrieve from CDDB'
        ShortCut = 116
        OnClick = mmiRetrieveClick
      end
      object mmiSubmit: TMenuItem
        Caption = '&Submit to CDDB'
        ShortCut = 119
        OnClick = mmiSubmitClick
      end
      object mmiImportExport: TMenuItem
        Caption = '&Import/Export...'
        ShortCut = 16457
        OnClick = mmiImportExportClick
      end
      object mmiSep01: TMenuItem
        Caption = '-'
      end
      object mmiExit: TMenuItem
        Caption = 'E&xit'
        ShortCut = 32883
        OnClick = mmiExitClick
      end
    end
    object mmiEdit: TMenuItem
      Caption = '&Edit'
      object mmiContents: TMenuItem
        Caption = '&Contents...'
        ShortCut = 32835
        OnClick = spbContentsClick
      end
      object mmiOption: TMenuItem
        Caption = '&Options...'
        ShortCut = 32847
        OnClick = mmiOptionClick
      end
      object mmiTimeFont: TMenuItem
        Caption = 'Time Fo&nt...'
        ShortCut = 32846
        OnClick = mmiTimeFontClick
      end
    end
    object mmiPlayer: TMenuItem
      Caption = '&Player'
      object mmiPlay: TMenuItem
        Caption = '&Play'
        ShortCut = 16464
        OnClick = spbPlayClick
      end
      object mmiStop: TMenuItem
        Caption = '&Stop'
        ShortCut = 16467
        OnClick = spbStopClick
      end
      object mmiPause: TMenuItem
        Caption = 'P&ause'
        ShortCut = 16449
        OnClick = spbPauseClick
      end
      object mmiEject: TMenuItem
        Caption = '&Eject'
        ShortCut = 16453
        OnClick = spbEjectClick
      end
      object mmiNext: TMenuItem
        Caption = '&Next'
        ShortCut = 16462
        OnClick = spbNextClick
      end
      object mmiPrev: TMenuItem
        Caption = 'P&revious'
        ShortCut = 16466
        OnClick = spbPrevClick
      end
    end
    object mmiHelp: TMenuItem
      Caption = '&Help'
      object mmiWebPage: TMenuItem
        Caption = '&CDmax Web Page...'
        OnClick = mmiWebPageClick
      end
      object mmiSetDefaultPlayer: TMenuItem
        Caption = '&Set Default Player...'
        OnClick = mmiSetDefaultPlayerClick
      end
      object mmiAbout: TMenuItem
        Caption = '&About...'
        OnClick = mmiAboutClick
      end
    end
  end
  object traMain: TTrayIcon
    Icon.Data = {<image000.ico>}
    Enabled = False
    PopupMenu = pmnMain
    AutoShow = True
    Left = 79
    Top = 168
  end
  object pmnMain: TPopupMenu
    Left = 107
    Top = 168
    object pmiRestore: TMenuItem
      Caption = 'View Player'
      OnClick = pmiRestoreClick
    end
    object pmiSep01: TMenuItem
      Caption = '-'
    end
    object pmiContents: TMenuItem
      Caption = 'Contents...'
      OnClick = spbContentsClick
    end
    object pmiOptions: TMenuItem
      Caption = 'Options...'
      OnClick = mmiOptionClick
    end
    object pmiSep04: TMenuItem
      Caption = '-'
    end
    object pmiRetrieve: TMenuItem
      Caption = 'Retrieve...'
      OnClick = mmiRetrieveClick
    end
    object pmiSubmit: TMenuItem
      Caption = 'Submit...'
      OnClick = mmiSubmitClick
    end
    object pmiSep03: TMenuItem
      Caption = '-'
    end
    object pmiPlay: TMenuItem
      Caption = '&Play'
      OnClick = spbPlayClick
    end
    object pmiStop: TMenuItem
      Caption = '&Stop'
      OnClick = spbStopClick
    end
    object pmiPause: TMenuItem
      Caption = 'P&ause'
      OnClick = spbPauseClick
    end
    object pmiEject: TMenuItem
      Caption = '&Eject'
      OnClick = spbEjectClick
    end
    object pmiPrev: TMenuItem
      Caption = 'P&revious Track'
      OnClick = spbPrevClick
    end
    object pmiNext: TMenuItem
      Caption = '&Next Track'
      OnClick = spbNextClick
    end
    object pmiSep02: TMenuItem
      Caption = '-'
    end
    object pmiExit: TMenuItem
      Caption = 'Shutdown'
      OnClick = mmiExitClick
    end
  end
  object inoMain: TIniOut
    Items.Strings = (
      'frmMain;Left;0;Software\Tisdale\CDmax\frmMain;Left;1;0'
      'frmMain;Top;0;Software\Tisdale\CDmax\frmMain;Top;1;0'

        'lblTime;Font;1|clGreen|-24|MS Sans Serif|fpDefault|18|[];Softwar' +
        'e\Tisdale\CDmax\frmMain\lblTime;Font;1;0'

        'cdvMain;MuteDown;False;Software\Tisdale\CDmax\frmMain\cdvMain;Mu' +
        'teDown;1;0'

        'cdvMain;SyncDown;False;Software\Tisdale\CDmax\frmMain\cdvMain;Sy' +
        'ncDown;1;0'

        'cboDefaultDrive;Items;;Software\Tisdale\CDmax\frmMain\cboDefault' +
        'Drive;Items;1;0'

        'cdvMain;DeviceItemIndex;0;Software\Tisdale\CDmax\frmMain\cdvMain' +
        ';DeviceItemIndex;1;0')
    RegistryRoot = CURRENT_USER
    Left = 135
    Top = 168
  end
  object fdlMain: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Options = [fdAnsiOnly, fdEffects]
    Left = 163
    Top = 168
  end
end